Dos/V Magazine 1995 October 15/CD [VMAG951015].bin/_demo/gambo/closet.dxr/00091.ls

Text File | 1995-02-13 | 7.0 KB | 279 lines

on startMovie
  cursor(4)
  puppetSound(0)
  set the timeoutLength to 10 * 60
  set the volume of sound 1 to 200
  set the visible of sprite 48 to 0
end

on mIdle
  puppetSprite(48, 1)
  if the timer >= 110 then
    mchangetext()
    startTimer()
    updateStage()
  else
    nothing()
  end if
end

on mchangetext
  if the castNum of sprite 48 = 92 then
    set the castNum of sprite 48 to 93
  else
    if the castNum of sprite 48 = 93 then
      set the visible of sprite 48 to 0
      set the castNum of sprite 48 to 94
    else
      set the castNum of sprite 48 to 92
      set the visible of sprite 48 to 1
    end if
  end if
end

on mcursorchange
  set a to the mouseCast
  if a = 1 then
    cursor([800, 801])
  else
    if a = 5 then
      cursor([800, 801])
    else
      if a = 9 then
        cursor([800, 801])
      else
        if a = 12 then
          cursor([800, 801])
        else
          if a = 16 then
            cursor([800, 801])
          else
            if a = 32 then
              cursor([800, 801])
            else
              if a = 35 then
                cursor([800, 801])
              else
                if a = 49 then
                  cursor([800, 801])
                else
                  if a = 55 then
                    cursor([800, 801])
                  else
                    if a = 110 then
                      cursor([810, 811])
                    else
                      if a = 111 then
                        cursor([812, 813])
                      else
                        if a = 121 then
                          cursor([814, 815])
                        else
                          if rollOver(1) then
                            cursor([804, 805])
                          else
                            cursor([800, 801])
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on mshuffle
  set jmpnum to random(21)
  if jmpnum = 1 then
    mchangetext()
    go("LR1")
  else
    if jmpnum = 2 then
      mchangetext()
      go("RL1")
    else
      if jmpnum = 3 then
        mchangetext()
        go("RL1")
      else
        if jmpnum = 4 then
          go("H1")
        else
          if jmpnum = 5 then
            mchangetext()
            go("R1")
          else
            if jmpnum = 6 then
              mchangetext()
              go("L1")
            else
              if jmpnum = 7 then
                mchangetext()
                go("DR1")
              else
                if jmpnum = 8 then
                  mchangetext()
                  go("DL1")
                else
                  if jmpnum = 9 then
                    go("Rrise")
                  else
                    if jmpnum = 10 then
                      mchangetext()
                      go("DwnR")
                    else
                      if jmpnum = 11 then
                        mchangetext()
                        go("DwnL")
                      else
                        if jmpnum = 12 then
                          mchangetext()
                          go("LR2")
                        else
                          if jmpnum = 13 then
                            mchangetext()
                            go("RL2")
                          else
                            if jmpnum = 14 then
                              mchangetext()
                              go("H2")
                            else
                              if jmpnum = 15 then
                                mchangetext()
                                go("DR2")
                              else
                                if jmpnum = 16 then
                                  mchangetext()
                                  go("DL2")
                                else
                                  if jmpnum = 17 then
                                    go("RH")
                                  else
                                    if jmpnum = 18 then
                                      go("LH")
                                    else
                                      if jmpnum = 19 then
                                        go("DH1")
                                      else
                                        if jmpnum = 20 then
                                          go("DH2")
                                        else
                                          go("Lrise")
                                        end if
                                      end if
                                    end if
                                  end if
                                end if
                              end if
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on mpchscore
  global punchcount
  set the visible of sprite 48 to 0
  set the castNum of sprite 48 to 92
  if punchcount = 1 then
    set the visible of sprite 17 to 1
  else
    if punchcount = 2 then
      set the visible of sprite 18 to 1
    else
      if punchcount = 3 then
        set the visible of sprite 19 to 1
      else
        if punchcount = 4 then
          set the visible of sprite 20 to 1
        else
          if punchcount = 5 then
            set the visible of sprite 21 to 1
          else
          end if
        end if
      end if
    end if
  end if
end

on timeoutproc
  go("Knife")
end

on knifescore
  global knifecount
  if knifecount = 1 then
    set the visible of sprite 32 to 1
  else
    if knifecount = 2 then
      set the visible of sprite 31 to 1
    else
      if knifecount = 3 then
        set the visible of sprite 30 to 1
      else
        if knifecount = 4 then
          set the visible of sprite 29 to 1
        else
          if knifecount = 5 then
            set the visible of sprite 28 to 1
          else
          end if
        end if
      end if
    end if
  end if
end

on mhead
  global pchflag, punchcount
  if rollOver(5) then
    if pchflag = 0 then
      set pchflag to 1
      set the mouseDownScript to EMPTY
      set punchcount to punchcount + 1
      mpchscore()
      set the volume of sound 1 to 160
      set the visible of sprite 5 to 0
      set the visible of sprite 6 to 1
      puppetSound("Punch")
      updateStage()
      repeat while soundBusy(1)
      end repeat
      puppetSound(0)
      set the visible of sprite 5 to 1
      set the visible of sprite 6 to 0
      updateStage()
      if punchcount > 4 then
        sound stop 1
        go("Disperse")
      end if
      set the volume of sound 1 to 200
      sound playFile 1, "dorosong.aif"
    end if
  end if
  set the castNum of sprite 48 to 92
end

on mplaydone
  cursor(4)
  set the mouseDownScript to EMPTY
  play done
end